home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / ODEMO2.PRG < prev    next >
Encoding:
Text File  |  1991-11-08  |  863 b   |  39 lines
  1. /*
  2. …ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª
  3. ∫                                o:Clip                                ∫
  4. ∫             An Object Oriented Extension to Clipper 5.01             ∫
  5. ∫                 (c) 1991 Peter M. Freese, CyberSoft                  ∫
  6. »ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº
  7.  
  8. Version 1.01 - November 8, 1991
  9. */
  10. #include "oclip.ch"
  11.  
  12. LOCAL o2 := Sample2():New("World")
  13. o2:Hello()
  14.  
  15. RETURN
  16.  
  17. CLASS Sample1
  18.   VAR Who
  19.   METHOD New = Sample1New, Hello = Sample1Hello
  20. ENDCLASS
  21.  
  22. FUNCTION Sample1New(cWho)
  23.   ::Who := cWho
  24. RETURN Self
  25.  
  26. FUNCTION Sample1Hello
  27.   ? "Hello",::Who
  28. RETURN Self
  29.  
  30. CLASS Sample2 FROM Sample1
  31.   METHOD Hello = Sample2Hello
  32. ENDCLASS
  33.  
  34. FUNCTION Sample2Hello
  35.   ::parent:Hello()
  36.   ? "Greetings and salutations!"
  37. RETURN Self
  38.  
  39.